home *** CD-ROM | disk | FTP | other *** search
/ Big Cock 7 / Big Cock 7 - Disc 1.iso / pc / b / main.dxr / 00007_2.ls < prev    next >
Encoding:
Text File  |  1996-01-01  |  498 b   |  21 lines
  1. on mouseDown
  2.   global comehome
  3.   set the puppet of sprite the clickOn to 1
  4.   repeat while the stillDown
  5.     if the rollOver of the clickOn then
  6.       set the ink of sprite clickOn() to 1
  7.       updateStage()
  8.       next repeat
  9.     end if
  10.     set the ink of sprite clickOn() to 0
  11.     updateStage()
  12.   end repeat
  13.   set the ink of sprite clickOn() to 0
  14.   updateStage()
  15.   set the puppet of sprite the clickOn to 0
  16.   set comehome to 1
  17.   if the rollOver of the clickOn then
  18.     go("purin&cat")
  19.   end if
  20. end
  21.